home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 January / Macworld (2000-01).dmg / QuarkXPress 4.10 update / 3rd Party / Demo XTs / Layout Ltd. Demos / ArabicXT4.0 Demo - MAC.sea / ArabicXT4.0 Demo - MAC / ArabicXT™ 4.0 DEMO - MAC.rsrc / PSAX_1011 < prev    next >
Text File  |  1998-09-01  |  2KB  |  69 lines
  1. /vmreclaim where{begin -2 vmreclaim end}if
  2. /setpacking where/pkng exch def
  3. pkng{pop/savepacking currentpacking def true setpacking}if
  4. /T true def
  5. /F false def
  6. /B{bind def}bind def
  7. /X{exch def}B
  8. /m/moveto load def
  9. /rm/rmoveto load def
  10. /l/lineto load def
  11. /rl/rlineto load def
  12. /np/newpath load def
  13. /cp/closepath load def
  14. /z/setmatrix load def
  15. /t/translate load def
  16. /S/scale load def
  17. /g/gsave load def
  18. /G/grestore load def
  19. /H/setgray load def
  20. /R/setrgbcolor load def
  21. /v/fill load def
  22. /V/eofill load def
  23. /u/clip load def
  24. /U/eoclip load def
  25. /n/stroke load def
  26. /o/setlinewidth load def
  27. /a/setlinecap load def
  28. /b/setlinejoin load def
  29. /p/setdash load def
  30. /MAxt553/show load def
  31. /NAxt553/ashow load def
  32. /QAxt553/awidthshow load def
  33. /YAxt553/widthshow load def
  34. /M{count 2 ge{1 index 65536 eq{pop pop}{MAxt553}ifelse}{MAxt553}ifelse} def
  35. /N{count 4 ge{3 index 65536 eq{pop pop pop pop}{NAxt553}ifelse}{NAxt553}ifelse} def
  36. /Q{count 7 ge{6 index 65536 eq{pop pop pop pop pop pop pop}{QAxt553}ifelse}{QAxt553}ifelse} def
  37. /Y{count 5 ge{4 index 65536 eq{pop pop pop pop pop}{YAxt553}ifelse}{YAxt553}ifelse} def
  38. /cps{{currentpoint}stopped}B
  39. /epS{/us save def countdictstack mark}B
  40. /epR{cleartomark countdictstack exch sub dup 0 gt{{end}repeat}{pop}ifelse us restore}B
  41. /mif{{}{m}ifelse}B
  42. /mrl{g np m rl n G}B
  43. /L{g np m l n G}B
  44. /qA .166667 def
  45. /qB .833333 def
  46. /qC .5 def
  47. /imx matrix def
  48. /mtx matrix def
  49. /mtx1 matrix def
  50. /mx0 matrix def
  51. /mx1 matrix def
  52. /mx2 matrix def
  53. /mx3 matrix def
  54. /2t 2 array def
  55. /2a[0 0]def
  56. /6a 6 array def
  57. /p2{pop pop}B
  58. /p3{pop pop pop}B
  59. /p4{pop pop pop pop}B
  60. /R0{mx1 astore concat}B
  61. /R1{mx0 currentmatrix pop R0}B
  62. /R2{mx3 currentmatrix pop R0}B
  63. /epnul{
  64.  28{0}repeat
  65.  /a X/b X/C X/g X/G X/H X/l X/m X/M X/n X/N X/o X
  66.  /p X/Q X/R X/S X/t X/u X/U X/v X/V X/w X/Y X/z X
  67.  /cp X/np X/rl X/rm X}B
  68. /findfont[/findfont load{stopped{pop/Courier findfont}if}aload pop]cvx B
  69.